Windows Office Excel VBA удаление каждой второй и третьей строки

Есть файл, в котором построчно английская фраза, перевод на русский, пустая строка. Нужно оставить только английскую строку.

Sub Macros1()
   For I = 1 To 857
    ' Rows("A2:A3").Select
    Range("A" & (I + 1) & ":A" & (I + 2)).Select
    Selection.Delete Shift:=xlUp
   Next
End Sub