怎么用宏实现行高

如何用宏实现行高？
我用录制宏
Sub Macro1()
' 快捷键: Ctrl+y
'
  Rows("1:1").Select
  Selection.RowHeight = 30

End Sub
以上的代码可以实现第一行可以设置行高30
但我现在要实现每隔3行就要自动设置行高30？
就是第1行行高30，第5行行高30，第9行行高30，第13行行行高30......依此类推


[解决办法]
for i = 1 to xx step 4
rows(i).rowheight=30
next i
[解决办法]
1楼代码正确。