Down and dirty solution, Assuming top left is top of sheet, cell A1.
Cell C1:
=A2
Cell D1
=B2
Cell E1
=MOD(ROW(A1),3)=1
Copy to entire range
Copy and Paste Values only
Sort by Column E
Delete all "FALSE" rows
To make repeatable, record macro of you doing it once. You should then be able to edit resulting macro to make it "generic".
EDIT
If the top left is not A1, you can modify the =MOD(ROW(A1),3)=2 or =0 to select the correct row.