I am supposing that the action you want to perform is in the sheet name "Sheet1"
but change to whatever you need.

I would simply try the following

Sub mydelete()
Dim i As Integer
For i = 2 To 2000 Step 4
Worksheets("Sheet1").Rows(i).Delete
Next i
End Sub
Hope this helps