[TOJluK]

Код:

  for i:= 1 to 8 do
   if TCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked then
    begin
    // делай что надо
    end;