Deleting rows with macro

I want to delete every second row, because I have data with 0.25m interval and I want 0.5m interval. Why I try the following it doesn't work?

Sub Macro1()
  
Row = 11
Do Until Row = "2525"
    Rows("Row:Row").Select
    Selection.Delete Shift:=xlUp
    
    Row = Row + 1
Loop

End Sub