Schleife durch die Einträge der ersten Listbox und dann eben nur jeden zweiten Eintrag (ungerader Index) in die andere Listbox übertragen.
Delphi-Quellcode:
for i := 0 to listbox1.items.count-1 do
begin
if ((i mod 2) = 1) then
listbox2.items.add(listbox1.items[i]);
end;