The answer by @corey979 is very good. Here I do basically the same, but with the following difference

• Used limited scope (Avoid global variables)
• Use Hue and Rescale to define the colours programmatically.
• Use StringTemplate instead of StringJoin

Here is my take

Multicolumn[
 Module[
  {
   niterations = 9,
   data = RandomPoint[Disk[{1,1}], 1000]
   },
  Table[
   ListLogLogPlot[
    data
    , PlotStyle -> Hue[0.8 Rescale[k, {1, niterations}]]
    , PlotLegends -> {StringTemplate["Code ``"][k]}
    , PlotRange -> {{10^-3, 10}, {10^-3, 10}}
    ]
   , {k, niterations}
   ]]]

The answer by @corey979 is very good. Here I do basically the same, but with the following difference

• Used limited scope (Avoid global variables) with Module
• Use Hue and Rescale to define the colours programmatically in order.
• Use StringTemplate instead of StringJoin

Here is my take

Multicolumn[
 Module[
  {
   niterations = 9,
   data = RandomPoint[Disk[{1,1}], 1000]
   },
  Table[
   ListLogLogPlot[
    data
    , PlotStyle -> Hue[0.8 Rescale[k, {1, niterations}]]
    , PlotLegends -> {StringTemplate["Code ``"][k]}
    , PlotRange -> {{10^-3, 10}, {10^-3, 10}}
    ]
   , {k, niterations}
   ]]]

The answer by @corey979 is very good. Here I do basically the same, but with the following difference

• Used limited scope (Avoid global variables)
• Use Hue as a programmatically way to define the colours.
• Use StringTemplate instead of StringJoin

Here is my take

Multicolumn[
 Module[
  {
   niterations = 9,
   data = RandomPoint[Disk[], 1000]
   },
  Table[
   ListLogLogPlot[
    data
    , PlotStyle -> Hue[0.8 Rescale[k, {1, niterations}]]
    , PlotLegends -> {StringTemplate["Code ``"][k]}
    , PlotRange -> {{10^-3, 10}, {10^-3, 10}}
    ]
   , {k, niterations}
   ]]]

The answer by @corey979 is very good. Here I do basically the same, but with the following difference

• Used limited scope (Avoid global variables)
• Use Hue and Rescale to define the colours programmatically.
• Use StringTemplate instead of StringJoin

Here is my take

Multicolumn[
 Module[
  {
   niterations = 9,
   data = RandomPoint[Disk[{1,1}], 1000]
   },
  Table[
   ListLogLogPlot[
    data
    , PlotStyle -> Hue[0.8 Rescale[k, {1, niterations}]]
    , PlotLegends -> {StringTemplate["Code ``"][k]}
    , PlotRange -> {{10^-3, 10}, {10^-3, 10}}
    ]
   , {k, niterations}
   ]]]