Assuming records are in each row and the first record is in cell A1,
try something like:

Sub Sample2000Step30()
Dim i As Integer
For i = 1 To 2000
Cells(i * 30, 1).Select
'your code here
Next i
End Sub