Delete rows from a sheet with an equal number of Intervals in Excel Macros

Sub deleteeveryotherrow()
For x = 3 To 100 Step 1
 Rows(x & ":" & x).Select
    Selection.Delete Shift:=xlUp
 Rows(x & ":" & x).Select
    Selection.Delete Shift:=xlUp
    x = x + 1
    Next x
End Sub