Здравствуйте, Владимир!
У Вас немного напутано с конструкцией begin... end.
Поясню:
Вот кусок Вашего кода:
...
If CheckBox13.State = cbChecked Then // эта строка блокирует все дальнейшее прохождение программы
begin // 1-й begin
for i:=1 to length(mem3) do begin // 2-й begin
j:=(i div 105) + 7;
Ex.ActiveWorkBook.WorkSheets[L3].Cells[j,2].value := Ex.ActiveWorkBook.WorkSheets[L3].Cells[j,2].value + mem3[i];
end; // end для 2-го begin


///---Действия при CheckBox14
If CheckBox14.State = cbChecked Then
Form3.Caption :='wwwwwww';
...
end; // end для 1-го begin

Вариант кода для такой ситуации прилагаю.
Вопросы пишите в форум.


Приложение:
///---Действия при CheckBox13

If CheckBox13.State = cbChecked Then
begin // начало операций для CheckBox13.State = cbChecked
Form3.Caption :='www';
Ex.ActiveWorkBook.WorkSheets[L3].Range['E2'].Value:=n1;
Ex.ActiveWorkBook.WorkSheets[L1].Range['B26'].Value:='Новый лист';
for i:=1 to length(mem3) do
begin // начало цикла
j:=(i div 105) + 7;
Ex.ActiveWorkBook.WorkSheets[L3].Cells[j,2].value:=Ex.ActiveWorkBook.WorkSheets[L3].Cells[j,2].value+mem3[i];
end; // конец циклв
end; // конец операций для CheckBox13.State = cbChecked


///---Действия при CheckBox14
If CheckBox14.State = cbChecked Then
begin // начало операций для CheckBox14.State = cbChecked
Form3.Caption :='wwwwwww';
Ex.ActiveWorkBook.WorkSheets[L4].Range['E2'].Value:=n1;
Ex.ActiveWorkBook.WorkSheets[L1].Range['B46'].Value:='Новый лист-2';
for i:=1 to length(mem4) do
begin // начало цикла
j:=(i div 105) + 7;
Ex.ActiveWorkBook.WorkSheets[L4].Cells[j,2].value:=Ex.ActiveWorkBook.WorkSheets[L4].Cells[j,2].value+mem4[i];
end; // конец цикла
end; // конец операций для CheckBox14.State = cbChecked