Como te han comentado, se hace lento porque tiene que acceder a varias capas de abstracción (VALOR de una PROPIEDAD de un OBJETO).
Podrías solucionarlo así:
Código Delphi
[-]
i:=0
chk := checklistbox.checked[i]
While i<=14000000 do
begin
if chk then
begin
end
inc(i)
end;